gnus-msg.el (gnus-msg-mail): Ensure that gnus-newsgroup-name is a string so that...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f2fba74c325f14f4e5ca6493a8785551350ea180..e88cbdd9792c4ce8118eafa4bf59d1d1dc3a8f67 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2012-05-21  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-msg.el (gnus-msg-mail): Ensure that gnus-newsgroup-name is
+       a string so that Gcc works (bug#11514).
+
 2012-04-21  Andreas Schwab  <schwab@linux-m68k.org>
 
        * gnus.el (debbugs-gnu): Don't override existing autoload definition.

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 815bd9e44a6a868823e0846ea7df27f90a87c3fe..c6d0c3213a0a7b138de396b22f5ce6df5e1afcd3 100644 (file)
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -490,6 +490,7 @@ instead."
       (message-mail to subject other-headers continue
                     nil yank-action send-actions return-action)
     (let ((buf (current-buffer))
+         (gnus-newsgroup-name (or gnus-newsgroup-name ""))
          mail-buf)
       (gnus-setup-message 'message
        (message-mail to subject other-headers continue